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ABSTRACT 


The design and implementation of the NPS LISP programming system 
is described. NPS LISP is an interactive version of LISP 1.5, a so- 
phisticated list processing and symbol manipulation computer language. 
NPS LISP was implemented in PL/I for operation under the CP/CMS time- 
sharing system on the IBM 360/67 computer. It is an interpretive sys- 
tem patterned after 7090 LISP. Most of the features of 7090 LISP are 


included in NPS LISP. 
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I. INTRODUCTION 


A member of the family of list processing computer languages is the 
highly sophisticated language LISP. The LISP language was first de- 
veloped and implemented at Massachusetts Institute of Technology in con- 
nection with research in Artificial Intelligence. It has since been 
used for symbolic calculations in Differential and Integral Calculus, 
proving theorems in the Predicate Calculus, game playing, and other 


areas of Artificial Intelligence. 


This thesis describes the development and implementation of an on- 
line interactive version of LISP for the IBM 360/67 computer. In order 
to produce a basic LISP system in a reasonably short length of time, it 
was decided to implement an interpreter-oriented LISP system written in 
PL/I. The system would operate under the existing CP/CMS time-sharing 
system. The steps taken to implement NPS Lisp! were: (1) gather and. 
study available literature concerning LISP systems; (2) decide on the 
internal system structure; (3) write the elementary LISP functions; (4) 
write the input and output functions and the interpreter; and (5) write 
additional procedures which give the system the desired capability in 


terms of predefined LISP functions. 


A basic knowledge of LISP and an understanding of the material in 
the LISP 1.5 Reference Manual [Ref. 2 | is essential to a clear under- 
standing of this thesis. The list representation conventions, abbre- 


viations, and descriptive terms contained herein are those found in 


Ref. 2. The reader is assumed to have an elementary knowledge of PL/I. 


INPS LISP is the name given to this version of LISP 1.5 implemented 
at the Naval Postgraduate School. 


II. DISCUSSION OF LISP IMPLEMENTATIONS 


Five existing LISP systems were studied prior to beginning the sys- 
tem design of NPS LISP. The systems examined were 7090 LISP, PDP-1 
LISP, Q-32 LISP, M-460 LISP, and BBN 940 LISP. Their designations are 
derived from the type of computer on which each system was implemented. 
During the study of each LISP system, particular attention was given to 
the internal data structure, the method of maintaining variable values 
(bindings), and other features relevant to an interpreter-oriented LISP 
system. Those features related to a particular system's LISP compiler 
were not examined closely, nor are they discussed in this section. 

The discussion of each LISP system in this section includes some 
general remarks about the system, followed by a description of the in- 


ternal data structure and the variable binding methods. 


A. 7090" Lise 


7090 LISP is a complete and powerful system that was implemented 
on the IBM /090 at M.I.T. by a group that ee detohn McCarthy, the 
designer of the first LISP programming system [Refs. 1 and 2 iz It is 
used as a basis for comparing the other LISP systems discussed in this 
section. The 7090 LISP system accepts as input a pair of S-expres- 
sions on punched cards which are evaluated by the function EVALQUOTE. 


The first S-expression is a function name or definition. The second 


S-expression is a list of arguments of the function. 
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l. Data Structure 


LISP programs and data are represented in memory by lists. Each 
element of a list in 7090 LISP is represented by a cell which is one 
36-bit computer word. The cell is divided into two 18-bit fields and is 


graphically represented as follows: 


0 17 18 35 


The left and right portions of the cell are referred to as the CAR 
(contents of the address register) and the CDR (contents of the decre- 
ment register), respectively. 

An atomic symbol, or atom, is represented in memory by a spe- 
cial type of cell called an atom header cell followed by a property 
list. Atom header cells are characterized by the presence of the 
constant -l in the CAR of the cell. The CDR of an atom header cell 
points to the atom's property list. In 7090 LISP, property lists 
contain both information required for system operation and user-de- 
fined properties. Atom print names are stored in a non-list area of 
memory called full word storage. Six characters of a print name are 
packed in a full word. The print name full words are accessed by a 
list of pointers on the property list. Figure 1 is a representation 
of the structure of the atom LISTING which is a function defined by 
the S-expression (LAMBDA (X) X). 

A numerical atom, or number, is represented in 7090 LISP by an 
atom header cell whose CDR points to a full word containing the value 


of the number. 7090 LISP accepts and operates on both fixed-point 
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FIGURE 1 


THE 7090 LISP FUNCTION LISTING DEFINED BY (LAMBDA (X) X) 
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(integers) and floating point numbers. A tag field in the atom header 
cell specifies the type of number represented. For example, the 7090 


LISP representation of the integer 15 is diagrammed below: 


2. Variable Bindings 


Function definitions in LISP contain the special form LAMBDA 
as the first element in the S-expression definition. In /090 LISP, 
LAMBDA causes the dummy variables in the function to be bound to their 
corresponding arguments on an association list (A-list). The associa- 
tion list is a list of pairs. Each pair consists of a dummy variable 
and its corresponding argument. 

Suppose, for example, that the following pair of S-expressions 


were input to the system: 


(LAMBDA (X) (CDR X)) ((A BC)) 


The interpreter would recognize LAMBDA and then bind the dummy varia- 
ble X to the list (A BC) on the A-list. Thus, the A-list would be 
(( . (A BC)). When the form (CDR X) is subsequently evaluated, the 
system retrieves (A B C) as the value of X, applies the function CDR, 
and returns (BC). 

Permanent bindings of variables, called zero-level bindings, 
are made on property lists with the indicator APVAL. For example, if 
the atom X has a permanent value of (A BC), its property list would 


appear as illustrated in Figure 2. 
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Bae PPP-1 LISP 


PDP-1 LISP was developed by L. Peter Deutsch for the PDP-1 computer 
made by the Digital Equipment Corporation [Ref. 1]. PDP-1 LISP is a 
small flexible system incorporating only a limited number of LISP func- 
tions. However, the system has two significant features. First, it 
can operate in as few as 2000 words of core memory. Secondly, it al- 
lows correction of S-expressions previously input to the system. PDP-1 
LISP accepts a single S-expression for evaluation, input on punched 
paper tape or through a teletype keyboard. The S-expression is eval- 


uated by the function EVAL. 
1. Data Structure 


A LISP cell in PDP-1 LISP is formed from two contiguous 18-bit 
words. Four bits in each word are available for use as tags since only 
14 bits are required for addressing list structure. PDP-1 LISP uses 
the LISP cell for storing all types of data; it does not have a full 
word storage area. 

The structure of PDP-1 LISP atom property lists is essentially 
the same as 7090 LISP property lists. Differences are found in the 
structure of the atom header cells and the manner in which print names 
are stored. The CAR of the atom header cell points to the print name 
while the CDR points to the property list. Print names are stored in 
list structure with three characters packed in the CAR of each list 
element. Figure 3 shows the structure of the atom LISTING, where 


LISTING is a function defined by the S-expression (LAMBDA (U) U). 
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EXAMPLE OF A 7090 LISP ATOM WITH A PERMANENT VALUE 
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EXAMPLE OF A PDP-1 LISP FUNCTION DEFINED BY (LAMBDA (U) U) 
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2. Variable Bindings 


PDP-1 LISP variable binding techniques are similar to those of 
7090 LISP. That is, LAMBDA causes dummy variables to be bound on an 
association list. Permanent values are placed on property lists after 


the indicator APVAL. 


C. Q-32 LISP 


Q-32 LISP was developed at System Development Corporation for opera- 
tion under SDC's time-sharing system on the AN/FSQ-32 computer [Ref. aie 
Q-32 LISP is a very extensive system that incorporates all but a few of 
the features of 7090 LISP. A principal feature of Q-32 LISP is that it 
is completely compiler-oriented. Thus, all functions are compiled be- 
fore execution. The system evaluates pairs of S-expressions input 
through a remote teletype terminal. As in 7090 LISP, the pair consists 
of a function and a list of arguments. If a function name is input as 
the first S-expression, the compiled code which defines the function is 
applied to the arguments. If the first S-expression contains LAMBDA as 
its first element, it is a function definition. Therefore, it is com- 


piled and then applied to the arguments. 
l. Data Structure 


One 48-bit Q-32 computer word, divided into four parts, forms 
a LISP cell for storing list structure. The prefix, decrement, tag, 
and address occupy bits 0-5, 6-23, 24-29, and 30-47, respectively. It 
should be noted that in other LISP systems discussed here, the decre- 
ment is contained in the right part of the LISP cell and the address 
is in the left part. For consistency, the Q-32 LISP cell will be 


shown as follows: 
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0 Bis 23. 24 29 30 47 


Atom property list structures in Q-32 LISP differ considerably 
in complexity and form from 7090 LISP property lists. A primary reason 
for this difference is that Q-32 LISP is compiler-oriented rather than 
interpreter-oriented. The atom header cell of a literal atom contains 
an atom flag in the prefix (bit 1 = 1), along with a CDR pointer to its 
print name and property list. The CAR of the atom header cell is either 
NIL or points to a special binding which is similar to an APVAL binding 
in 7090 LISP. The CAR of the first cell on a property list following 
the atom header cell points to an array containing the print name. The 
remainder of the property list is used only for storing properties de- 
fined by the LISP programmer. The 7090 LISP indicators PNAME, APVAL, 
SUBR, and EXPR are not used in Q-32 LISP. 

Q-32 LISP also utilizes quote cells. The quote cells are used 
to designate atoms and active list structure during garbage collection. 
The CAR of a quote cell points to an atom header cell or a list struc- 
ture. The CDR of a quote cell is always NIL. A reserved region of 
core memory contains the quote cells and literal atom header cells. 

As an example, consider the list structure for a typical atom 
in Q-32 LISP. Referring to Figure 4, assume that the atom ATOMLISTA 
has a zero-level binding to the list (A BC) and that the property J 
has been put on the property list under the indicator PROP. The print 
name of ATOMLISTA is stored in an array in full word storage. The 
first word in the array indicates that the array contains a print name 


(octal 03 in the prefix). The first word also indicates that the print 
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name uses two words of storage (2 in the CDR) and that there is one 
character stored in the last word of the array (1 in the tag). 

The atom header cell of a function name has a CAR pointer to 
the first cell of compiled code for the function. For example, the 
structure of the LISP function EQ is shown in Figure 5. 

The storage of numbers is similar to print names, Numerical 
atom header cells are stored in free storage instead of in the reserved 
area of memory with literal atom header cells. For example, the number 
101 is represented by the structure given in Figure 6. The atom header 
cell of the numerical atom 101 contains 71 in the tag field to indicate 
the number is an integer. The CAR of the atom header cell points to an 
array in full word storage containing the value of the number. The ar- 
ray header contains octal 02 in the prefix indicating a numerical array. 
The number 1 in the CDR specifies that one data word is used. Note that 
the arrays in full word storage are sets of contiguous memory locations. 

The OBLIST is the structure which allows literal atoms to be 
represented uniquely in Q-32 LISP. The OBLIST is a set of 125 contigu- 
ous words in memory which point to a list of pointers to literal atoms. 
It is used by the read routines as a rapid look-up table for atoms to 
determine if they are present in memory. A simple hash coding scheme 
based on the first eight characters of the print name is used to de- 


termine the placement of an atom in the OBLIST. 


2. Variable Bindings 


Q-32 LISP does not use an association list for maintaining 
variable values bound by LAMBDA. Instead, bindings of dummy variables 
are kept in a pushdown list. Referring to Figure 4, note that zero- 


level bindings are referenced by a CAR pointer in the atom header cell. 
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EXAMPLE OF A Q-32 LISP ATOM WITH A 
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STRUCTURE OF THE Q-32 LISP FUNCTION EQ 
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This discussion of variable bindings has been greatly simpli- 
fied. In actuality, there are other aspects of variable bindings in 
Q-32 LISP which are important if a complete understanding of Q-32 LISP 
is desired. However, these aspects are not covered in this section 


since they are not essential in an interpreter-oriented system. 


D. M-460 LISP 


M-460 LISP is the name given to the LISP system implemented on the 
UNIVAC M-460 computer at the Air Force Cambridge Research Laboratories 
[Ref. 1] - it is compatible with 7090 LISP although there are some 


features not implemented. 
1. Data Structure 


The M-460 LISP cell consists of one 30-bit M-460 computer word. 
Fifteen bit fields are used for both the address and decrement values. 
There are no tag fields in the cell. 

Property lists of literal atoms in M-460 LISP differ in several 
significant ways from those in 7090 LISP. In place of the 7090 LISP 
indicators APVAL, SUBR, and EXPR, property lists in M-460 LISP contain 
a value cell. The first cell on the property list which follows the 
atom header cell contains a CAR pointer to the value cell. The CAR of 
the value cell points to one of the following: (1) a zero-level bind- 
ing; (2) the code for a compiled function; or (3) a LAMBDA expression 
which defines a function. In the case of a compiled function, the 
value cell also contains a CDR pointer to a SETUP routine which stores 


parameters and variable values on the pushdown list. 
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The LISP function CAR is an example of a compiled function. 
The structure of the property list of CAR is shown in Figure 7. The 
function FN defined by the S-expression (LAMBDA (Y) (PRINT Y)) has 
the structure illustrated in Figure 8. Note that the print name is 
stored in a list with one character in the CAR of each list element. 

Numerical atoms are structured in a rather unique fashion in 
M-460 LISP. Numerical atoms are stored in a list structure composed 
of an atom header cell with a CDR pointer to a list of number cells. 
The value of the number is stored in a list containing one to three 
number cells. The CAR of each number cell contains ten significant 
bits and a sign bit. The CDR points to any remaining number cells. 


Note that there is no full word storage in M-460 LISP memory. 


2. Variable Bindings 


In contrast to 7090 LISP, the M-460 LISP system does not have 
an association list for maintaining values of variables. Instead, 
bindings of dummy variables established by LAMBDA are kept on a push- 
down list. Zero-level bindings are referenced by the CAR of the value 
cell on the property list. Suppose, for example, that the atom ATM 
has a zero-level binding to the list (G H I). The structure of ATM 


is represented in Figure 9. 


E. BBN 940 LISP 


BBN 940 LISP is an upward compatible extension of 7090 LISP im- 
plemented on the SDS 940 computer by Bolt Beranek and Newman, Inc. 


[Refs. 4 and 5]. BBN LISP includes a number of features which give 
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STRUCTURE OF THE M-460 LISP FUNCTION CAR 
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EXAMPLE OF AN M-460 LISP ATOM WITH A PERMANENT VALUE 
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it extensive on-line capabilities. These features include conditional 
break-points in functions for debugging along with a sophisticated LISP 
editor. The most significant feature, however, is the use of a drum as 
the principal storage device. Careful segmentation of system code, 
arrangement of data in memory by type, and special attention to binding 
of variables contribute to the success of the system. 

The design of BBN 940 LISP is quite different from the other LISP 
systems discussed here. None of the internal system conventions of 
BBN 940 LISP were considered for incorporation into NPS LISP because 
of the system's use of two level storage and its complex compiler- 
oriented structure. BBN 940 LISP is mentioned here only because of 
its unique features and is not further discussed. 

The study of these various LISP systems provided many specific im- 
plementation ideas for the design of NPS LISP. Features borrowed from 


these LISP systems for NPS LISP are described in the next section. 
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III. NPS LISP SYSTEM DESIGN AND IMPLEMENTATION 


The design and implementation of NPS LISP was based on a study of 
the five LISP systems described in Section II. During the course of 
this study, it was found that no LISP system in particular was decidedly 
superior to the others from the standpoint of internal system design. 
However, /090 LISP is described in greater detail in the available lit- 
erature and it has the distinction of being a development of the origi- 
nal LISP programming system, It was decided, therefore, to model NPS 
LISP after /090 LISP for both technical and aesthetic reasons. 

The discussion of the design and implementation of NPS LISP in this 
section begins with a description of the internal system conventions 
adopted for list representation, atom property lists, character objects, 
numerical atoms, the OBLIST, and memory organization. Next, is a com- 
plete and detailed description of the NPS LISP interpreter. A short 
discussion of NPS LISP functions and some of their common characteris- 


tics concludes this section. 


A. INTERNAL SYSTEM CONVENTIONS 


The internal structure of NPS LISP resembles 7090 LISP more than 
any other LISP system. However, design features of other systems were 
incorporated into NPS LISP when they appeared to be advantageous. It 
was desired to keep the NPS LISP system structure uncomplicated, yet 
allow for the basic capabilities of 7090 LISP. Thus, the internal 
Structure described in this section is a compromise between structural 


simplicity and system sophistication. 
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1. List Representation 


In NPS LISP, lists are represented in memory by a linked list 
structure build from 32-bit computer words. Each cell can be graphi- 


cally represented as follows: 


address decrement 


1 Lo JZ 


The address and decrement fields of the cell are 16-bit fields whose 
first bit is reserved for use in garbage collection. The maximum size 
of NPS LISP memory is limited to the maximum value representable in 15 
bits --32,76/. 

All LISP programs and data, except numbers, are stored in list 
structure. The system does not rely on values being located in succes- 
sive memory cells; instead, the interpreter accesses particular values 
by traversing lists. Since LISP lists are essentially binary trees, 


the list traversing procedures are relatively straightforward. 


2. Atoms and Property Lists 


Atomic symbol representation and property lists in NPS LISP 
correspond closely to those in 7/090 LISP. Every atomic symbol is rep- 
resented uniquely. In addition, each atom has a property list created 
when the atom is read. 

Initially, each atom has only its print name on its property 
list. A special type of cell, called an atom header cell, is the 
First cell on a property list. An atom header cell contains -l1 in 


its CAR. The CAR of an atom header cell is the only element of list 
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structure containing a negative number. Thus, it is a simple matter to 
determine when an atom has been reached during list traversals by test- 
ing for a value less than zero. The CDR of an atom header points to the 
property list. 

Some properties that are on property lists of literal atoms are 
preceded by special system defined atoms called indicators. The indi- 


cators used by NPS LISP and their meanings are: 


PNAME print name of the atom 

APVAL permanent value of an atom considered as a variable 
SUBR function defined by a PL/I procedure 

EXPR function defined by an S-expression 

FSUBR special form defined by a PL/I procedure 

FEXPR special form defined by an S-expression 


In addition to the indicators used by the LISP system, the LISP pro- 
grammer may put other indicators on property lists. 

A property list indicator not followed by a property is called 
a flag. Flags indicate a certain property by their presence alone. An 
example of a flag is the trace flag, FLAG. FLAG is put on the property 
list of a function to cause trace information to be printed when the 
function is executed. 

The method of atom print name storage was taken from M-460 LISP. 
An atom print name is stored in a list. The CAR of each cell in the 
list contains the EBCDIC code of one character of the print name. The 
CDR is a pointer to the remainder of the name. For example, the atom 
ABCD is represented in NPS LISP memory as shown in Figure 10. It is 
emphasized that while PNAME and NIL in Figure 10 are pointers to the 


atoms PNAME and NIL respectively, the characters A, B, C, and D are the 


Zi 


actual EBCDIC code for those characters, In Figure 10, the computer 
word containing the character A appears as follows, assuming B is con- 


tained in cell 1024: 


A 1024 
00000000 10111111 | 00000100 00000000 | 


The binary number 10111111 in the second byte above corresponds to 





decimal 191, the EBCDIC code for the character A. Note that the first 
byte of a print name cell is unused since the first bit is reserved for 
garbage collection. 

The indicators SUBR and FSUBR on an atom property list signal 
that the atom is a function defined by a PL/I procedure. Each PL/I 
coded function is assigned a unique integer number. The interpreter 
uses this number to transfer control at the time of the function call. 
For example, the LISP function CAR has the structure ye in 
Figure 11. The number 2 appearing after SUBR is the unique number as- 
Signed to the function CAR. 

Functions defined by S-expressions in NPS LISP have one of the 
indicators EXPR or FEXPR on their property lists. Figure 12 is a dia- 
gram of the function LISTING, where LISTING is defined by the S-expres- 
sion (LAMBDA (X) X). 

Literal atoms which have a permanent value (zero-level binding) 
have the indicator APVAL on their property lists. If, for example, the 
atom LISTA has a permanent value of (A BC D), its property list is 
structured as in Figure 13. 

There are three literal atoms in NPS LISP which have themselves 
as values: T, F, and NIL. The atoms T and F can be interpreted as the 


boolean values true and false. NIL is used to terminate a list. 
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STRUCTURE OF AN ATOM IN NPS LISP 
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EXAMPLE OF A PL/I CODED LISP FUNCTION 
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EXAMPLE OF AN NPS LISP FUNCTION DEFINED BY (LAMBDA (X) X) 
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FIGURE 13 


EXAMPLE OF AN ATOM IN NPS LISP WITH A ZERO-LEVEL BINDING 
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The property lists for T, F, and NIL are in Figure 14. Note that in 
Figure 14 the value of T is T, the value of F is NIL, and the value of 
NIL is NIL. This may appear confusing, but the interpreter is con- 
structed to evaluate T, F, and NIL to their proper values; the circular 


lists are not a problem here. 


3. Character Objects 


NPS LISP handles special characters in a manner similar to 7090 
LISP. Special characters are characters other than letters and digits. 
The legal special characters, called character objects, have print 
names that are the mnemonic equivalent of their corresponding type- 
writer character, and values which are their EBCDIC codes. For ex- 
ample, the character object RPAR (right parenthesis) has the structure 
given in Figure 15. 

Character objects are not stored in memory with their atom 
header cells in successive memory locations. Instead, they are stored 
as any other literal atom. The unique characteristic of a character 
object is that the value of the object is an EBCDIC code rather than 
a pointer to an atom header or list. The legal character objects and 


their permanent values are listed in Table l. 


4. Numbers 


Only integer numbers are allowed in NPS LISP. The manner of 
storing numbers in NPS LISP is similar to that of 7090 LISP. A number 
is an atom that does not have a property list. The CDR of the atom 


header of a numerical atom points to an area of memory called full 
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STRUCTURE OF THE ATOMS T, F, AND NIL 
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STRUCTURE OF A CHARACTER OBJECT IN NPS LISP 


TABLE I 


NPS LISP CHARACTER OBJECTS 


Print Name Permanent Value 
DOLLAR $ 
SLASH / 
LPAR ( 
RPAR ) 
COMMA . 

PER IOD “ 
PLUS + 
DASH - 
STAR * 
BLANK blank 
EQS IGN = 
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word storage. The value of the number is stored in full word storage 
as a signed binary integer. For example, the number 255 has the follow- 


ing representation: 





Numbers are not unique in NPS LISP, For example, each occur- 
rence of the number 5 in the list (1 5 2 5) is represented by a sep- 
arate atom header cell whose CDR points to a different location in full 
word storage. Figure 16 is a diagram of the list (15 2 5) illustrat- 


ing the method of number representation. 
5. The OBLIST 


The object list, or OBLIST, is the structure which permits 
literal atoms to be represented uniquely in memory. The OBLIST con- 
sists of 127 contiguous memory cells each containing a CDR pointer 
to a sub-list. The CAR of each element on a sub-list points to an 
atom that has either been read or is part of the initialized system. 
When atoms are read, a hash code is computed based on the first 
three characters of the atom print name and the length of the print 
name. An atom is placed in the OBLIST according to its hash code -- 
a number between one and 127. The CAR of each cell in the OBLIST 
contains the number of atoms that exist in the system and which hash 
code to the same OBLIST location. 

For example, suppose the atoms FORMI and FORM2 have a com- 
puted hash code of 57. If they are the only atoms in the system 
with this particular hash code, the relevant section of the OBLIST 
and its sub-list is represented in Figure 17. 
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FIGURE 16 


EXAMPLE OF NON-UNIQUE NUMBER STORAGE 
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EXAMPLE OF THE OBLIST STRUCTURE 
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The read routines ensure that multiple references to the same 
atom point to the same atom header ceil. Figure 18 shows a multiple 


reference to the atom E in the list (E E F). 


6. Organization of Memory 


Since the NPS LISP system was coded in PL/I, LISP memory is 
actually an array named FSTOR (free storage) having the attributes 
BINARY FIXED(31) and a dimension of (0:32766). Each LISP cell is one 
element in the FSTOR array. The CAR and CDR of each cell are either 
indexes into the FSTOR array or EBCDIC codes for the print name char- 
acters or character objects. 

NPS LISP differs from other LISP systems discussed in one im- 
portant way: all NPS LISP system functions including the interpreter 
and I/O routines are written in PL/I. Thus, most of the 32K LISP 
memory is available for storing list structure and numbers. 

The OBLIST was placed in the lowest 127 cells of LISP memory 
in order to maintain a reasonable nae to a more conventional 
LISP system. That is, FSTOR(1:127) corresponds to the OBLIST. The 
atom structures for all built-in LISP functions and legal character 
objects are created during system initialization. These structures 
occupy approximately the next 1000 celis in FSTOR. The region of 
FSTOR beginning at (approximately) FSTOR(1100) to the lower limit 
of full word storage is allocated for list structure and is called 
free storage. 

Numbers are stored in full word storage located at the top of 


memory. One cell, FSTOR(32766), is initially allocated for storing 
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ILLUSTRATION OF UNIQUE REPRESENTATION OF LITERAL ATOMS 
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the first number. Subsequent numbers are placed in FSTOR at lower ad- 
dresses. During the execution of LISP programs, the areas occupied by 
list structure and numbers grow toward each other. The organization of 


NPS LISP memory is illustrated below: 





32766 , 
Numbers 
(occupied) 

BNUM -» 
Storage 
(unoccupied) NPS LISP 

FREE -» ators 
List 
structure 
(occupied) 

129 
OBLIST 
0 = - | 


FREE and BNUM are PL/I variables which point to the next available cell 
in free storage and full word storage respectively. 

Another departure from the structure of other LISP systems is 
that NPS LISP does not maintain a pushdown list. Recursive LISP func- 
tions are written as recursive PL/I procedures. Thus, partial results 
of computations are maintained automatically. S-expressions which de- 
fine recursive functions are evaluated by the recursive PL/I procedures 
NAPPLY and NEVAL. Difficulties may occur in the implementation of the 
garbage collection routines due to the exclusion of the pushdown List. 
Garbage collection is discussed further in Section IV. 

Once the internal system conventions of NPS LISP were estab- 


lished, a few elementary LISP functions were written and tested to 
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check the validity of the system structure. The interpreter that was 
written, based on the design conventions, is described in the following 


paragraphs. 


B. THE NPS LISP INTERPRETER 


A thorough knowledge of how the interpreter operates is essential 
to a complete understanding of any interpretive LISP system. For this 
reason, the NPS LISP interpreter is described in detail. The reader 
may wish to refer to the listing of the interpreter in Appendix C while 
reading this section. 

The NPS LISP interpreter, a PL/I procedure called NEVALQ, consists 
of a set of PL/I procedures which perform the essential tasks of eval- 
uating S-expressions input to the system. NEVALQ is called by the NPS 
LISP supervisor, LISPA, after two S-expressions have been read. These 
two S-expressions are the two arguments of NEVALQ. The first argument 
is. a function name or function definition; the second argument is a 
list of arguments for the function. The interpreter is patterned after 
the 7090 LISP interpreter and contains the same 7090 LISP functions 
EVALQUOTE, EVAL, APPLY, EVLIS, and EVCON. In addition, the interpreter 
contains procedures required by NPS LISP due to the structure of the 
system. Each of the major interpreter functions is discussed separately 
below. The first function considered is a PL/I procedure vital to the 


operation of NPS LISP. 
1. The Procedure NPROC 


NPROC is a PL/I procedure that provides the interface between 


the interpreter and the LISP functions coded as PL/I procedures. 


Be 


As mentioned in Section III, each LISP function coded in PL/I has either 
SUBR or FSUBR followed by a unique number on its property list. This 
number is used by NPROC to transfer to the subscripted label variable A. 
The statement in NPROC following A(i) is a call to the corresponding LISP 
function. 

As an example, refer back to Figure 11 where the structure of 
the function CAR is diagrammed. The number 2 following SUBR on CAR's 
property list is the number used by NPROC to transfer to the statement 
with the label A(2). NPROC also assigns the arguments of LISP func- 
tions to the standard PL/I variables ARG(1), ARG(2), and ARG(3). Note 
that this restricts only PL/I coded LISP functions to three arguments. 


The value of NPROC is the value of the LISP function called by NPROC. 


2. EVALQUOTE 


The first few executable statements of NEVALQ, although not 
written as a separate procedure, serve the same purpose as the 7090 
LISP function EVALQUOTE. These statements determine if the first ar- 
gument of NEVALQ is a function with either FEXPR or FSUBR on its prop- 
erty list. If so, the function name is paired with the arguments and 
EVAL is called with a NIL association list. Otherwise, APPLY is called 


with a NIL association list (A-list). 
3. APPLY 


The three primary tasks of APPLY are to (1) apply a function 
to its arguments; (2) bind variables and function names on the A-list 
by evaluating the special forms LAMBDA and LABEL; and (3) evaluate 


functional arguments by detecting the special form FUNARG. The three 
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arguments of APPLY are a function name or definition, a list of argu- 
ments for the function, and the current A-list. Each of the principal 
tasks of APPLY are examined below in the order that they are accomplished. 

Suppose a function name is supplied as the first argument of 
APPLY. First, the property list of the function is searched for a func- 
tion definition. The indicator SUBR appearing on the property list 
means that the function definition is a PL/I procedure and causes con- 
trol to pass to NPROC. The procedure NPROC then calls the proper LISP 
function. If the function has an S-expression definition as indicated 
by EXPR, APPLY is called recursively with the function definition in 
place of the function name. 

Assuming that neither SUBR or EXPR is found on the property 
list of the function name, APPLY searches the A-list for a function 
definition. If one is found, APPLY is called recursively with the 
function definition replacing the function name. If no function defi- 
‘nition is found on the A-list or property list, the function is unde- 
fined and an error message is printed. 

The first element of a function supplied to APPLY may be one 
of the special forms LAMBDA, LABEL, or FUNARG. The appearance of 
LAMBDA initiates two actions. The list of dummy (local) variables 
following LAMBDA are bound on the A-list to their corresponding ar- 
guments by the LISP function PAIR. Further, the function definition 
is evaluated by EVAL using the modified A-list. When the special 
form LABEL is encountered, the name appearing after LABEL is bound 
to its function definition on the A-list. APPLY is then called with 
the function definition as its first argument. For example, the S- 


expression (LABEL FN (LAMBDA (X) (CDR X))) adds (FN , (LAMBDA (X) 
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(CDR X))) to the A-list and APPLY is called recursively with (LAMBDA (X) 
(CDR X)) as its first argument. In most LISP systems, FUNARG is referred 
to as a device rather than a special form since it is used only within 
the system. When a function has a functional argument, FUNARG ensures 
the correct retrieval of bindings of free variables which occur in the 
functional argument. An excellent discussion of the necessity and opera- 
tion of the FUNARG device is contained in Ref. 1, pages 63-65. 

It may happen that the first argument of APPLY is not in a form 
suitable for evaluation by APPLY. In this case, EVAL evaluates the 
first argument and then APPLY is called recursively with the value of 


EVAL as its first argument. 
4. EVAL 


The primary purpose of EVAL is to evaluate forms. A form is 
defined as an S-expression consisting of (1) a numerical or literal 
atom; (2) one of the special forms QUOTE, FUNCTION, or COND, followed 
by Hs arguments; or (3) a function followed by its arguments. EVAL 
requires two arguments -- a form to be evaluated and the current A- 
list. EVAL returns an S-expression that is the value of the form. 

The actions taken by EVAL in evaluating a form are described below 
in the order which they occur. 

The first argument of EVAL may be a numerical or literal atom. 
If it is a number, as occurs in the S-expression (CONS 1 2), then EVAL 
merely returns the number as its value. If the first argument is a 
literal atom, it must have been previously bound to a value on either 
its property list or the A-list. EVAL first searches the property 


list of the atom for a zero-level binding under the indicator APVAL. 
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It returns this value if the search is successful. If no APVAL binding 
is found, the A-list is searched from the top for the most recent value 
binding of the atom. If no binding is discovered, an error results and 
an error message is printed. 

The order in which atom values are retrieved is important. Since 
property lists are searched before the A-list for value bindings, a 
zero-level binding always takes precedence over any bindings that are 
on the A-list. The example below illustrates this fact: 

CSET (A (1 2 3)) 

(LAMBDA (A B) (CONS A B)) (X Y) = ((1 2 3). Y) 

The atom A is given a zero-level binding to the list (1 2 3) by the 
function CSET. When the interpreter recognizes LAMBDA, A and B are 
bound to X and Y on the A-list. As the arguments of CONS are eval- 
uated by EVAL, (1 2 3) is retrieved from the property list of A, and 

Y is obtained as the value of B from the A-list. Thus, the arguments 
of CONS are (1 2 3) and Y. The S-expression ((1 2 3) . Y) is returned 
as the value of CONS. 

If the form to be evaluated is not an atom, then it is an S- 
expression whose first atomic element is a special form or function 
name. The special forms recognized by EVAL are QUOTE, FUNCTION, and 
COND, The special form QUOTE causes the element following QUOTE to 
be returned as the value of the S-expression. For example, the list 
(A BC D) is returned as the value of (QUOTE (A BC D)). 

FUNCTION is a special form which indicates that the S-expres- 
sion which follows is a functional argument of a function. A list is 
returned consisting of FUNARG, the functional argument, and the cur- 


rent A-list. 
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The special form COND is evaluated by the rece: ere Cee 
EVCON, described later in this section. 

Function names are evaluated after considering special pees 
A literal atom is assumed to be a function name iff is oe of 
the special forms aNoTe. Therefore, the function definition must be 
determined. rirer, the property list re function aerate ten is 
searched for one of the indicators SUBR, FSUBR, EXPR, or FEXPR. Te 
SUBR is found, the function has a PL/I definition. Thus, the func- 
tion is evaluated by invoking NPROC after the arguments of the func- 
tion are evaluated by EVLIS. FSUBR Mitcates oe function 
arguments must be passed directly to NPROC. An S-expression eunct ee 
definition is indicated by the presence of EXPR on the property List. 
Consequently, the function “ig evaluated by APPLY after EVLIS evalua- 
tes the function arguments. If FEXPR is on the property list, Ene 
Foner ion arguments are not evaluated. ineteaden a esc, eee of 
“the function arguments and the current association list, replaces 
the arguments of the function. APPLY is then ealied to er otuate the 
function. 

Finally, rev ene first element (the CAR) of the form supe ine 
to EVAL is not an atom, then the remainder (the CDR) of the foam ie 


evaluated by EVLIS. APPLY is then called to evaluate the first 


element of the form. 
5. EVLIS 


EVLIS merely evaluates successive elements of a list by calling 
EVAL, returning a list of the computed values. EVLIS is used to eval- 


uate the arguments of functions prior to application of the function. 
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6. EVCON 


EVCON is the function which evaluates the conditional form COND. 
Each of the arguments of COND is a pair of S-expressions for evaluation. 
The first S-expression of each pair is called the predicate. EVCON 
successively evaluates predicates while they evaluate to F or NIL. When 
a predicate is encountered which evaluates to a value other than F or 
NIL, the second S-expression of this pair is evaluated. The value of 
EVCON is the value of this S-expression. If all of the predicates 
evaluate to F or NIL, the conditional is unsatisfied and an error mes- 


sage is printed. 


7. Tracing Functions 


It is often desirable to trace the execution of a LISP program 
either for the purpose of debugging or for simply observing the se- 
quence of calls made by the interpreter. The mechanism which enables 
a trace is provided by (1) the LISP function TRACE which places the 
indicator FLAG on the property list of functions; and (2) the inter- 
preter procedure PTRACE which prints the trace information in a read- 
able format. 

The interpreter functions are traced in the following manner. 
When APPLY and EVAL are entered, their property lists are searched 
for the presence of FLAG. If FLAG is found, PTRACE is called to 
print the value of the function. 

Tracing of other LISP functions is handled somewhat differently 
than the interpreter functions. When the function definition of a 
PL/I coded LISP function is determined by either APPLY or EVAL, the 


property list is searched for FLAG. If FLAG is present, the PL/I 
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variable TRACE] is set equal to T. PTRACE is called if TRACE1 equals T 
when NPROC is entered. APPLY and EVAL call PTRACE when FLAG is dis- 
covered on the property list of a function defined by an S-expression. 


An example of the information printed by trace is contained in Figure 19. 


8. Error Handling 


The NPS LISP interpreter contains no sophisticated error correc- 
tions routines and produces few error diagnostic messages. When an er- 
ror is discovered by the interpreter, a short diagnostic message is 
printed and NIL is returned as the value of the function currently ex- 
ecuting. The interpreter continues evaluating as if NIL is the correct 
value. Thus, the interpreter attempts to evaluate an S-expression com- 
pletely even though an error occurs during execution. A LISP error 
occasionally causes an IBM 360 execution interrupt. As a result, the 
LISP system must be completely initialized and any functions defined 
by the LISP programmer are lost. The five errors detected by the in- 


terpreter are listed and explained in Table II. 


9. Example of Interpreter Execution 


Figure 19 is a trace of the steps taken by the interpreter in 
evaluating the function (LAMBDA (A B) (CONS A B)) applied to the ar- 
guments ((X Y Z) (1 2 3)). The arguments to EVALQUOTE were typed in 
by the LISP programmer; all other printed information was typed by 
the NPS LISP system. The following sequence of events takes place: 

(1) The LISP programmer communicates directly with EVALQUOTE; 
therefore, he types in two S-expressions -- a function and a list of 


arguments. 
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CALL EVALQUOTE, ARGS: 
_(LAMBDA (A B) (CONS A B)) (CX Y Z) (1 2 3)) 
CALL APPLY, ARGS; 
(LAMBDA (A B) (CONS A B)) 
CCX “Y 2) Cie 2 33) 
NIL 

CALL EVAL, ARGS: 

(CONS A B) 

CCA XY 7 (Blaze) 

CALL EVAL, ARGS: 


A 

(CA X Y Z) (B 1 2 3)) 
VALUE OF EVAL IS: 

COE Y«2) 

CALL EVAL, ARGS: 


B 
C@ xX Y ZieGB a 2 3)) 
VALUE OF EVAL IS: 
Crago) 
CALL CONS, ARGS: 
Ce tel) 
(1 23) 
VALUE OF CONS IS: 
COX Yo) 25.) 
VALUE OF EVAL IS: 
COX Yoz) legz.3) 
VALUE OF APPLY 1S: 
CCX VY see 2.5.) 


VALUE IS: 
CCX Y Mele? 3) 


FIGURE 19 


EXAMPLE OF A TRACED FUNCTION 
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(2) Since the first argument is not an atom, APPLY is called. 
The arguments of APPLY are the function (LAMBDA (A B) (CONS A B)), the 
list of arguments ((X Y Z) (1 2 3)), and the NIL A-list. 

(3) APPLY recognizes LAMBDA, binds A to (X Y Z) and B to 
(1 2 3) on the A-list, and calls EVAL. The arguments of EVAL are the 
form (CONS A B) and the A-list ((A X Y Z) (B 1 2 3)). 

(4) EVAL determines that CONS is a SUBR function and then 
evaluates A and B. The values of A and B are retrieved from the 
A-list. 

(5) CONS is applied to its arguments, OO Y"Z) -ande7(l 7 2)e 
and returns ((X Y Z) 1 2 3)). 

(6) The computed value is returned to EVAL, APPLY, and 


EVALQUOTE in sequence. 


C. NPS LISP FUNCTIONS 


The NPS LISP system contains all of the elementary functions, log- 
ical connectives, defining and property list functions, table building 
and table reference functions, and list handling functions found in 
7090 LISP. ADD1, SUB1, and NUMBERP are the only arithmetic functions 
implemented for the initial NPS LISP system. Descriptions of all im- 
plemented LISP functions are contained in Appendix A. 

The development of the NPS LISP system spanned a period of five 
months. As the system was developed, considerable effort was ex- 
pended to ensure an acceptably short response time. As a result, the 
LISP programmer can expect an almost immediate response when he in- 
puts a pair of S-expressions for evaluation. The fact that the sys- 


tem was programmed in a higher level language, PL/I, provides major 
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advantages over a system written in machine code: (1) alterations to 
the system may be easily made; (2) the system may be implemented quite 
easily on another computer having a PL/I compiler; and (3) the system 
is self-documenting to some extent. 

Recommendations for incorporating into NPS LISP some unimplemented 


features of 7090 LISP are discussed in the next, and final, section. 
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IV. RECOMMENDAT LONS 


Due to the magnitude of the task of implementing a LISP system, it 
was not possible, or even planned, to initially implement all of the 
features of.7090 LISP. However, the difficult design and lengthy pro- 
gramming tasks are complete, and the basic framework exists for expand- 
ing NPS LISP capabilities. Features of 7090 LISP recommended for 
incorporation into the NPS LISP system are discussed in the following 


paragraphs. 


A. GARBAGE COLLECTION 


Garbage collection is the process of reclaiming cells of inactive 
list structure when the free storage list becomes empty. It is one 
of the most ‘significant features of 7090 LISP and desirable for any 
complete LISP system. In 7090 LISP, full word storage is also re- 
claimed during garbage collection. 

When NPS LISP was designed, provisions were made in the cell struc- 
ture for garbage collection of list structure. However, no garbage 
collection routines were written for the initial implementation. Bits 
one and 17 of each non-header cell are available for use as tags dur- 
ing the marking phase of garbage collection. The CAR of atom header 
cells contains -1; consequently, only the seventeenth bit of atom 
header cells can be used for marking. 

i cere aaa of the garbage collection procedure utilized by 


7090 LISP is in Ref. 2. In order to implement this scheme, all NPS 


a1 


LISP functions written as recursive PL/I procedures will require some 
alteration. These functions must be rewritten to utilize a pushdown 
list for storing the partial results of computations. Otherwise, any 
list structures created by these functions are lost if garbage collec- 
tion occurs during their execution. Functions similar to the 7090 LISP 
functions SAVE and UNSAVE could be written to maintain the pushdown 
Fist 

An alternative to rewriting the NPS LISP functions is available, 
however. A statement could be inserted in the LISP supervisor, LISPA, 
which prints a warning when the free storage list is dangerously close 
to becoming empty. When this message-is seen by the LISP programmer, 
he then explicitly calls the garbage collection routine by typing a 
pair of S-expressions such as RECLAIM (). This solution is not as 
efficient or foolproof as conventional garbage collection methods; 
however, it provides a limited garbage collector with a minimum of 


programming effort. 


B. ARITHMETIC FUNCTIONS 


Three arithmetic functions are defined in NPS LISP -- NUMBERP, ADD1, 
and SUB1. The extensive arithmetic capabilities of 7090 LISP were not 
initially implemented for NPS LISP since they were not considered es- 
sential to the system operation. The implementation of most of the 
7090 LISP arithmetic functions is not expected to be a major task due 
to the ease with which they may be written in PL/I. 

The only significant problem which must be solved is the design of 


efficient methods of reading and storing floating point numbers. 
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The largest integer that may be stored in NPS LISP memory is 22 aap 
Consequently, if two very large integers are multiplied together, a 


fixed point overflow may occur. 


C. FUNCTIONS WITH FUNCTIONAL ARGUMENTS 


The NPS LISP system does not contain the 7090 LISP functions MAP, 
MAPLIST, MAPCAR, or SEARCH. However, they may be defined by the LISP 
programmer through the use of the functions DEFINE and DEFLIST. It is 
recommended that these features be written as PL/I procedures and 
placed within the procedure NEVALQ since they require access to the 


current association list. 


D. PROG FEATURE 


The PROG feature allows the LISP programmer to write LISP programs 
in a convenient format similar to ALGOL. It was not implemented since 
any program that can be written using PROG can also be written in the 
standard LISP format. All LISP systems discussed in Section II, how- 
ever, have the PROG feature. Thus, it would be desirable to implement 
this feature for NPS LISP. 

The NPS LISP system at the current stage of development permits in- 
vestigations in many areas applicable to list processing and symbol 
manipulation techniques. In addition, the system structure provides 


a good basis for future expanding the capabilities of NPS LISP. 
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APPENDIX A 


FUNCTIONS IN THE NPS LISP SYSTEM 


All LISP functions implemented for NPS LISP are described in this 
appendix. The effect, or result, of most NPS LISP functions is the 
same as the corresponding 7090 LISP function. Any significant differ- 
ences are briefly explained. Each entry in this appendix consists of 
(1) the function name followed by its arguments; (2) an asterisk if 
the function is equivalent to the corresponding 7090 LISP function; 
(3) either SUBR or FSUBR; (4) an indication if the function is a pred- 
icate or pseudo-function; and (5) a brief description of the function. 
The functions are listed here in the same order as they are in Appen- 
dix A of Ref. 2 to allow easy comparisons to 7090 LISP functions. 

True and false are represented by T and F respectively. 
ELEMENTARY FUNCTIONS 
CAR (x) * SUBR 


The value contained in bits 1-16 of the cell in FSTOR(x) is returned 
as the value of CAR(x). 


CDR (x) * SUBR 


The value represented by bits 17-32 of the cell in FSTOR(x) is re- 
turned as the value of CDR(x). CDR and CAR will always return a 
value even if applied to atomic arguments. The functions CAAR, 
CADR,...,CDDDR are also available as system functions. 


CONS (x,y) SUBR 
The value returned by CONS is a pointer to a cell obtained from the 
free storage list. The CAR of this cell contains x and the CDR of 


the cell contains y. CONS does not call a garbage collection rou- 
tine when the free storage list is exhausted. 


54 


ATOM (x) * SUBR predicate 
T is returned if x is an atom (i.e., pointer to an atom header); 
otherwise, F is returned by ATOM. Since the sign bit of an atom 
header cell is 1, ATOM tests for a negative value in FSTOR(x). 
BO Gay) SUBR predicate 


The value of EQ is T if x and y are the same atoms, and F otherwise. 
EQ is used for comparing numbers as well as literal atoms, 


EQUAL (x,y) SUBR predicate 
If x and y are the same S-expressions, the value of EQUAL is T; 
otherwise, the value is F. This function should not be used for 
comparing numbers. 

LIST (x, 9X9 gece »X,,) * FSUBR 
The value of LIST is a list of the arguments. 


NULL (x) SUBR predicate 


NULL returns T if x is NIL; otherwise it returns F. In contrast to 
7090 LISP, NIL is not equivalent to zero. 


RPLACA (x,y) * SUBR 
The CAR of x is replaced by y; the value x is returned. 

RPLACD (x, y) * SUBR 
The CDR of x is replaced by y; the value x is returned. RPLACA and 
RPLACD should be used with caution since they permanently alter list 
structure. 

LOGICAL CONNECTIVES 

AND (x) 5%55-+--X_) FSUBR predicate 
The arguments of AND are evaluated in sequence until one of them 
evaluates to F or NIL. The value of AND is F in this case or T9 if 
all of the arguments evaluate to some value other than F or NIL. 

OR (x1 5X5 5+-->X) FSUBR predicate 
The arguments of OR are evaluated in order until one of them eval- 
uates to some value other than F or NIL. The value of OR is T in 
this case or F if all arguments evaluate to F or NIL. 


NOT (x) SUBR predicate 


The value of NOT is T if x is F or NIL; otherwise, the value of 
NOT is F. 
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DEFINING AND PROPERTY LIST FUNCTIONS 
DEF INE (x) * SUBR pseudo-function 


The argument of DEFINE is a list of pairs; each pair consists of a 
function name and an S-expression definition of the function. DEFINE 
puts an EXPR indicator and a pointer to the corresponding function 
definition on the property list of each name. A list of the function 
names is returned. 


DEFLIST (x, i) * SUBR pseudo-function 


This function works like define except that it puts the indicator i 
on the property lists instead of EXPR. DEFLIST can be used to put 
any property on a property list. If either DEFINE or DEFLIST is used 
more than once on the same property list, the most recent property 
under any particular indicator replaces the previous one. For ex- 
ample, if a function is re-defined several times using DEFINE, only 
the most recent definition is on the function's property List. 


ATTRIB (x,y) * SUBR pseudo-function 


The last element of x is changed by ATTRIB to the value y; the value 
returned is y. ATTRIB can be used to attach something onto the end 
of a property list. 


PROP (x,y,u) SUBR 


The function PROP searches the list x for an element that is EQ to y. 
If such an element is found, the value of PROP is the remainder of 
the list beginning immediately after y. Otherwise, the value of PROP 
is u. The argument u is any S-expression. 


GET (x,y) * SUBR 


GET searches the list x for an element that is EQ to y. The CAR of 
the remainder of the list immediately following y is returned if the 
search is successful. Otherwise, the value of GET is NIL. 


CSET (x,v) * SUBR pseudo-function 
This pseudo-function establishes a zero-level binding of the atom x 
to the value v; it puts the indicator APVAL and a value cell whose 
CAR points to v on the property list of x. The value of CSET is x. 


CSETQ (x,v) * SUBR pseudo-function 


CSETQ is similar to CSET except that it quotes the first argument, 
x, instead of evaluating it. CSETQ cannot be input at the top level 
of EVALQUOTE. That is, the following pair of S-expressions is 
illegal: CSETQ (A (1 2 3)). 


56 


REMPROP (x, i) * SUBR pseudo-function 


This pseudo-function deletes all occurrences of the indicator i and 
its related property from the list x. The value of REMPROP is NIL. 


FLAG (1, 1) * SUBR pseudo-function 


The argument 1 is a list of atoms. FLAG puts the flag i on the prop- 
erty list of each atom in list 1. The value of FLAG is NIL. 


REMF LAG (1,1) % SUBR pseudo-function 
REMFLAG has the opposite effect of FLAG. It removes all occurrences 
of the flag i from the property list of each atom in the list 1 and 
returns NIL. 

TABLE BUILDING AND TABLE REFERENCE FUNCTIONS 

PATR (x,y) * SUBR 


The function PAIR returns a list of dotted pairs of corresponding 
elements of the lists x and y. 


PAIRLIS (x,y,a) * SUBR 


PAIRLIS acts like PAIR with the additional property that it adds the 
list of pairs to the front of list a. The value of PAIRLIS is the 
modified list a. 


saaeOG (x,y, u) SUBR 
The function SASSOC searches the list of dotted pairs, y, for a pair 
whose first element is x. If such a pair is found, the value of 
SASSOC is this pair. Otherwise, the S-expression u is returned. 


ASSOC (x,y) SUBR 


ASSOC, like SASSOC, returns the pair on the list y whose first term 
is EQ to x. If no such pair is found, the value of PAIR is NIL. 


SUBST (x,y,2Z) * SUBR 
SUBST returns the new S-expression formed by substituting x for all 
occurrences of y in the S-expression z. Note that SUBST does not 
change the S-expression Zz. 

SUB2 (x,y) SUBR 
SUB2 is similar to ASSOC. It searches the list of pairs x for a 


pair whose first term is EQ to y. SUB2 returns the second term of 
the pair if the search is successful; otherwise, it returns y. 


a / 


SUBLIS (x,y) * SUBR 
The argument x is a list of dotted pairs of the form ((uj .vz) (ug.v9) 
ener V a )) and y is an S-expression. SUBLIS returns a new S-expres- 
sion formed by replacing all occurrences of any u,'S in y by their 
corresponding V;'S. The S-expression y is not altered. 

LIST MANIPULATING FUNCTIONS 

APPEND (x, y) * SUBR 


The function APPEND attaches the list y to the end of a copy of the 
list x and returns the resultant list. 


NCONC (x, y) * SUBR 
NCONC concatenates the lists x and y without copying the list x; it 
returns the combined list. This function utilizes the function 
RPLACD; thus, list structure is permanently altered. 

COPY (x) * SUBR 
The function COPY returns a copy of the list x. 


REVERSE (x) * SUBR 


This function reverses the top level of the list x and returns the 
reversed list. 


MEMBER (x,y) * SUBR predicate 


If the S-expression x is a member of the list y, MEMBER returns T; 
otherwise it returns F. 


LENGTH (x) * SUBR 

The length of the top level of the list x is returned by LENGTH. 
LAST (x) SUBR 

The last element of the list x is returned as the value of LAST. 
EFFACE (x, y) * SUBR 


EFFACE alters the list y by removing from it all occurrences of 
Chee itemex. 


ARITHMETIC FUNCTIONS 
NUMBERP (x) * SUBR predicate 
The predicate NUMBERP returns T if X is a numerical atom and F other- 


wise. It utilizes the fact that number values are stored in full 
word storage (i.e., the region of FSTOR above the pointer BNUM). 
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ADDI (x) * SUBR 
The argument x must be a numerical atom; if ADD1 (or SUB1) is applied 
to a literal atom, the property list of the literal atom will be lost. 
ADD1 adds one (1) to the value of x and returns this new value. 


SUB1 (x) * SUBR 


The function SUB1 operates similarly to ADD] except that the value of 
(SUB1 X) is X-l. 


INPUT AND OUTPUT FUNCTIONS 

READ () SUBR pseudo-function 
When READ is executed, the next S-expression in the input buffer is 
read into the system, READ puts atoms into the OBLIST and creates 
atom property lists. The value of READ is the S-expression read. 


PRINT (x) * SUBR pseudo-function 


The execution of PRINT causes the S-expression x to be printed; the 
value of PRINT is x. 


PRIN1 (x) “ SUBR pseudo-function 


The pseudo-function PRIN] puts the atom x on the print buffer; the 
print buffer is not printed unless it is full. 


TERPRI() * SUBR pseudo-function 


TERPRI prints the current contents of the print buffer. TERPRI also 
clears the print buffer after printing it and returns NIL. 


FUNCTIONS FOR DEBUGGING 

TRACE (x) * SUBR pseudo-function 
TRACE puts a flag on the property list of each function in the list x 
which causes trace information to be printed when the function is en- 
tered and exited. The argument x must be a list of function names. 
The value of TRACE is NIL. 

UNTRACE (x) * SUBR pseudo-function 


UNTRACE removes the trace flag from the property lists of all function 
names in the list x. The value of UNTRACE is NIL. 


INTERPRETER FUNCTIONS 
APPLY(fn,args,a) * SUBR 
The arguments of APPLY are a function, a list of arguments for the 


function, and the current association list. APPLY applies a func- 
tion to its arguments and returns the resultant value. 
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EVAL (form, a) * SUBR 


The arguments of EVAL are a form to be evaluated and the current asso- 
ciation list. The value returned by EVAL is the value of the form. 


EVLIS (1, a) * SUBR 


EVLIS evaluates a list of forms; the list is usually a list of argu- 
ments for a function which are evaluated before the function is ap- 
plied. The arguments of EVLIS are a list of forms for evaluation and 
the current association list. EVLIS returns a list of values of the 
forms. 


EVCON (c, a) SUBR 


The arguments of EVCON are a list of pairs of S-expressions; for 
each pair, the first element is a predicate while the second element 
is an S-expression that is evaluated if the value of the predicate 
expression is not F or NIL. The value of EVCON is the value of the 
second S-expression in this case. At least one of the predicates 
must evaluate to a value other than F or NIL; otherwise, an error 
results. 
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APPENDIX B 


USING THE NPS LISP SYSTEM 


The NPS LISP system is a PL/I program that runs under control of 
the Cambridge Monitor System (CP/CMS). NPS LISP consists of six ex- 
ternal PL/I procedures which reside on a private user disk file under 
the file names LISPA, LISPB, LISPC, LISPD, LISPE, and LISPP. LISPA is 
the NPS LISP supervisor; it reads two S-expressions, calls EVALQUOTE, 
and prints the value of EVALQUOTE. LISPB contains most of the func- 
tions implemented for NPS LISP. LISPC contains the read routines. 
LISPD is the interpreter, NEVALQ. LISPE is the initialization rou- 
tine, INITIAL, which puts all system functions in memory. LISPP con- 
tains the elementary LISP functions. 

A user of NPS LISP must log on to CP in the usual manner. He then 
must enter an 'IPL CMS' command and, when CMS is loaded, type 'LISP!. 
(Single quotes are used here to specify what is actually typed by the 
user). This causes system initialization. The system is ready to ac- 
cept input when the terminal types 'CALL EVALQUOTE, ARGS:', skips to 
the next line, and types ' '. 

EVALQUOTE is not called until two complete S-expressions have been 


read, The character ' 


is typed if any input line is not complete. 
When EVALQUOTE has completed execution, the terminal types 'VALUE IS:! 
followed by the value of EVALQUOTE. A listing of a brief session with 


the NPS LISP system follows: 
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ipl cms 
CMS..VERSION 11.0 - 06/15/69 


lisp 
FXECUTION BEGINS... 


NPS LISP INITIALIZING 


CALL EVALQUOTE, ARGS: 
_(lamhda (x) «) ((this Is an example cf nps lisp)) 


VALUE IS: 

(THIS 1S AN FXAMPLE OF NPS LISP) 

CALL EVALQUOTE, ARGS: 

_de‘tne (( 

_( itersection (lambda (x y) (cond ((null x) nid) 

7 ((member (car x) y) (cond@s (car x) (Intersection 
(cdr x) y))) (t Cintersection (cdr x) y)) ))) 
_{3tomlist (lambda (1) (cond ((Cnull 1) t) 

_ (Catom (car 1)) Catomlist (cdr 1))) (t f)))) )) 
Vive lS: 

(! TERSECTION ATOMLIST) 

CA . EVALQUOTE, ARGS: 

_li ersection ((a b de jtrs)(tesal5 j)) 

VAT te St 

Ca? Jes) 


CALL VALOQUOTE, ARGS: 
_atonm tst ((a bcd e)) 


VALUF  S: 
~ 


CALL EVA ‘)UCTE, ARGS: 
_atomlis (a + (¢) d a)) 
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VALUE IS: 
NEL 


CALL EVALQUOTE, ARGS: 
_cset (lista (a bed e)) 


VALUE 1{S: 
LISTA 
CALL EVALQUOTE, ARGS: 7 


_(lambda (x) (cons x (cddr lista))) ((1 2 3)) 


VALUE 1S: 
Gols.2 3) 5 C70. ED 


CALL EVALQUOTE, ARGS: 
_reverse ((a bcd e)) 
VALUE IS: 

(E DCB A) 


CALL EVALQUOTE, ARGS: 
_patr ((a bec d)(1 2 3 4&)) 


VALUE IS: 
(CA. 1) GR 22) RG). SoeD,. &)) 


CALL EVALQUOTE, ARGS: 


_addl (789) 
VALUF IS: 
790 


CALL EVALQUOTE, ARGS: 
_subst (one 1 (1 2 Ch TyC@ 3 1 3) 1 6)))))009D) 


VALUE ({S: 
(ONE 2 (4% ONE) ((7 3 ONE 3) ONE 6)) 


CALL EVALQUOTE, ARGS: 


_end lisp 
EXIT LISP SYSTEM 
Rs T=20.09/27.58 15.14.33 
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APPENDIX C 
LISTING OF NPS LISP SYSTEM 


mr, 

* 

LL! 

a 

td 

= 

=<) ee ee 

a = wa 

x x co 

iw Ll ee 

ct p= cof. co 

© a a. - 

Y Ooonm ee 
— Or O “= 
> aw - 
ce © - FF 
LL of OOOoCec ~~ iW 
a. - > & 
ae ZOZO Iw 
Mme ee LICDUICD —_+ > 

we  F— =& a WN 
Ob ee be he 4 
eet >< iy tw = 
am me LL) Oreore Oo WW” 
eat CO VEVEm — 
— SW mt NN 8 UY 
IW KE NEON conn 
&%The ee AG A eee oe 


SD Ue Lm lla HN eer 
ZY ees etl COOL’ 
CO mM 29th eoNGhe= Oe <I 
~ CMa CO wc~Ow 10 
eA OE eT ee Le 
Qh pt OC ON et Lie Lome Or a Ke 
OLZS"YM fC ae wantddad 
-— tJ CZ ZOO! 
" Hom AFCO 
OF OMTH NH OO OmwZ 
NM ANOOOWwW 


LOOP 
TERM 


> PROC; 


LTSEe 


TERNAL, 
9 
EXT $ 


-x< Ad 


(ELEMENTARY) FUNCTIONS */ 


LISP PRIMITIVE 
R 
9 
? 


Oru Our 
IMM CAS w= 
CD UL, we eee te 


ot / 


E STORAGE 


PRE 


BLE CELL IN 
o)s 


ee 

se 

0 

= 

o 

= 

e 

ie 

<{ 

W 

= 

ac 

= 

_— 

VY) 

LL. 

2 aw 

Zw 

om tl) 

ma. 

WY 

an 

1LJ 2D 
a we Oe 
© Pomme CY Te, 
ee ee 
<q /) oo}- 
OmmwO0 
KOmIW DZ 
iw ICO 
-—- Olio 
a. ad Het 
LU) dob Lu 
OoOOoar 


65 


BIN; 
SPEC(FSTOR(CD)) 517,16); 


R(UNSPEC(CNA),17,16)3 
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END OF LIST J AND RETURNS K 


NATTRIB: 
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L) »NCONS( APVAL»NCONS(VAR2Z,NIL))) 


/* SET UP SUBR INDICATORS */ 


INITL2: 


CONS (SUBR »eNCONS (NCONS (I3eNIL)I NIL) ))5 


oo 


/* SET UP FSUBR INOICATORS */ 


ENTRY(14); 


INITL3: 


° 
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) 
NCONS(FSUBR,NCONS(NCONS (IG NIL), NIL))) 


CADD) ; 
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END INITIALS 
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